(save-completions-file-name): Use user-emacs-directory.

diff --git a/lisp/completion.el b/lisp/completion.el
index 25b9585253601205bb25520e6dee95eccf201b6b..c9e27ab30913d8ccf240bd1237dc5aa73b78f4b3 100644 (file)
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -301,9 +301,9 @@ See also `save-completions-retention-time'."
   (let ((olddef (convert-standard-filename "~/.completions")))
     (cond
      ((file-readable-p olddef) olddef)
-     ((file-directory-p (convert-standard-filename "~/.emacs.d/"))
+     ((file-directory-p user-emacs-directory)
       (convert-standard-filename
-       (expand-file-name "completions" "~/.emacs.d/")))
+       (expand-file-name "completions" user-emacs-directory)))
      (t olddef)))
   "The filename to save completions to."
   :type 'file